inherited FrmTiers: TFrmTiers Left = 326 Top = 274 VertScrollBar.Range = 0 BorderStyle = bsDialog Caption = 'FrmTiers' ClientHeight = 523 ClientWidth = 547 OldCreateOrder = True OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 inherited sb: TTBXStatusBar Top = 504 Width = 547 end object dxLayoutControl1: TdxLayoutControl [1] Left = 0 Top = 0 Width = 547 Height = 478 Align = alClient ParentBackground = True TabOrder = 1 LookAndFeel = dtmSession.dxLayoutWebLookAndFeel object cxEdNom: TcxDBTextEdit Left = 124 Top = 62 Width = 160 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 1 end object cxEdPrenom: TcxDBTextEdit Left = 124 Top = 89 Width = 160 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 2 end object cxEdTelephone: TcxDBTextEdit Left = 124 Top = 143 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 4 end object cxEdAdresse1: TcxDBTextEdit Left = 124 Top = 202 Width = 100 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 8 end object cxEdAdresse2: TcxDBTextEdit Left = 124 Top = 229 Width = 300 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 9 end object cxEdZip: TcxDBTextEdit Left = 124 Top = 256 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 10 end object cxEdVille: TcxDBTextEdit Left = 275 Top = 256 Width = 120 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 11 end object cxEdPortable: TcxDBTextEdit Left = 124 Top = 116 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 3 end object cxEdPays: TcxDBTextEdit Left = 124 Top = 283 Width = 200 Height = 21 DataBinding.DataSource = dsFiche Properties.ReadOnly = False Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 12 end object cxEdMail: TcxDBHyperLinkEdit Left = 124 Top = 342 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 13 end object cxEdObs: TcxDBMemo Left = 21 Top = 369 Width = 185 Height = 89 DataBinding.DataSource = dsFiche Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 14 end object cxEdUtilisateur: TcxDBTextEdit Left = 403 Top = 62 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 6 end object cxChkAcces: TcxDBCheckBox Left = 403 Top = 35 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Properties.ValueChecked = '1' Properties.ValueUnchecked = '0' Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 5 end object cxEdPassword: TcxDBTextEdit Left = 403 Top = 89 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Properties.EchoMode = eemPassword Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 7 end object cxEdMatricule: TcxDBTextEdit Left = 124 Top = 35 Width = 121 Height = 21 DataBinding.DataSource = dsFiche Style.BorderColor = clHighlight Style.BorderStyle = ebsSingle Style.HotTrack = False TabOrder = 0 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object layEmprunteur: TdxLayoutGroup Caption = 'Emprunteur' object dxLayoutControl1Item1: TdxLayoutItem Caption = 'Matricule' Control = cxEdMatricule ControlOptions.ShowBorder = False end object itemNom: TdxLayoutItem Caption = 'Nom' Control = cxEdNom ControlOptions.ShowBorder = False end object itemPrenom: TdxLayoutItem AutoAligns = [aaVertical] Caption = 'Prenom' Control = cxEdPrenom ControlOptions.ShowBorder = False end object itemPortable: TdxLayoutItem AutoAligns = [aaVertical] Caption = 'Portable' Control = cxEdPortable ControlOptions.ShowBorder = False end object itemTel: TdxLayoutItem AutoAligns = [aaVertical] Caption = 'T'#233'l'#233'phone' Control = cxEdTelephone ControlOptions.ShowBorder = False end end object layAccesInternet: TdxLayoutGroup Caption = 'Acc'#232's Internet' object itemAccesWeb: TdxLayoutItem Caption = 'Autoriser l'#39'acc'#232's ?' Control = cxChkAcces ControlOptions.ShowBorder = False end object itemUser: TdxLayoutItem Caption = 'Utilisateur' Control = cxEdUtilisateur ControlOptions.ShowBorder = False end object itemPass: TdxLayoutItem Caption = 'Mot de passe' Control = cxEdPassword ControlOptions.ShowBorder = False end end end object layAdresse: TdxLayoutGroup Caption = 'Adresse' object itemAdresse: TdxLayoutItem Caption = 'Adresse' Control = cxEdAdresse1 ControlOptions.ShowBorder = False end object itemComplemAdresse: TdxLayoutItem Caption = 'Compl'#233'ment adresse' Control = cxEdAdresse2 ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group3: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object itemZip: TdxLayoutItem Caption = 'Code postal' Control = cxEdZip ControlOptions.ShowBorder = False end object itemVille: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Ville' Control = cxEdVille ControlOptions.ShowBorder = False end end object itemPays: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Pays' Control = cxEdPays ControlOptions.ShowBorder = False end end end object layInformations: TdxLayoutGroup Caption = 'Informations compl'#233'mentaires' object itemMail: TdxLayoutItem Caption = 'Email' Control = cxEdMail ControlOptions.ShowBorder = False end object dxLayoutControl1Item5: TdxLayoutItem CaptionOptions.Layout = clTop Control = cxEdObs ControlOptions.ShowBorder = False end end end end object TBXDock1: TTBXDock [2] Left = 0 Top = 478 Width = 547 Height = 26 Position = dpBottom object TBToolbar1: TTBXToolbar Left = 0 Top = 0 Align = alBottom BorderStyle = bsNone Caption = 'TBToolbar' DockMode = dmCannotFloatOrChangeDocks DockPos = 152 DragHandleStyle = dhNone FullSize = True Images = ImageListSmall TabOrder = 0 object TBItem1: TTBXItem Action = ActionFermer DisplayMode = nbdmImageAndText end object TBSeparatorItem: TTBXSeparatorItem end object TBItem3: TTBXItem Action = ActionValider DisplayMode = nbdmImageAndText end object TBItem2: TTBXItem Action = ActionCancel DisplayMode = nbdmImageAndText end end end inherited aclFiche: TActionList Left = 336 Top = 168 end inherited ImageListSmall: TImageList Left = 272 Top = 144 end object qryFiche: TIBQuery Database = dtmSession.IBDatabase OnNewRecord = qryFicheNewRecord OnPostError = qryFichePostError BufferChunks = 1000 CachedUpdates = False UpdateObject = IBUpdateSQL Left = 216 Top = 144 end object IBUpdateSQL: TIBUpdateSQL Left = 360 Top = 168 end object dsFiche: TDataSource DataSet = qryFiche Left = 272 Top = 160 end object ActionManager: TActionManager ActionBars = < item Items = < item Action = ActionValider ImageIndex = 1 end item Action = ActionCancel ImageIndex = 0 end> end item Items = < item Action = ActionValider ImageIndex = 1 end item Action = ActionCancel ImageIndex = 0 end> end item Items = < item Action = ActionValider ImageIndex = 1 end item Action = ActionCancel ImageIndex = 0 end item Caption = '-' end> end item Items = < item Action = ActionValider ImageIndex = 1 end item Action = ActionCancel ImageIndex = 0 end> end> Images = ImageListSmall Left = 320 Top = 168 StyleName = 'XP Style' object ActionValider: TAction Caption = '&Valider' ImageIndex = 1 OnExecute = ActionValiderExecute end object ActionCancel: TAction Caption = '&Abandonner' ImageIndex = 0 OnExecute = ActionCancelExecute end object ActionFermer: TAction Caption = 'Fermer' ImageIndex = 16 OnExecute = ActionFermerExecute end end end